      BLOCK DATA
C     ***************** BLOCK DATA 1 ***********************************
        IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 ISUBD,JARRAY,J2,J3,J4,J22,NSUBX
      INTEGER*4 ACNTRL,DDPLY
C
C
      COMMON/ANTENA/ A(10,3),ADOT(10,3),B(10,3),BDOT(10,3),DIN(10,3),
     .               DINDOT(10,3),DOUT(10,3),DOUTDT(10,3),ZBZ(3,10),
     .               NELMTS,NDAMPR,MODES(10)
C
      COMMON/CCNVRT/ BDYMI(3,3),DPRMI(3,3),EMODLS(10),RTUBE(10),
     .               HTUBE(10),THERMC(10),TIPMS(10),C(10)
C
      COMMON/CFINDX/ AX2CHK,TCHECK,LCHECK
C
      COMMON/CFNALP/ SCO,CIZO(3,3),CIYO(3,3),DONA(3,10),DONB(3,10)
     .              ,CDAMP(3,10)
C
      COMMON/CNBODY/ J2,J3,J4,J22,ZJ20,ZMU,WWO,FLAT,AEARTH
C
      COMMON/CODPLY/ STANG,ANGTOL
C
      COMMON/CONSTS/ PI,TWOPI,RADIAN
C
      COMMON/CRATIO/ RATIO
C
      COMMON/CSOLAR/ SAO(10),SKA(9),SKB(9),SKOA(10,3),SKOB(10,3),
     .               STMK(10),SKAA(10,9),SKBB(10,9)
C
      COMMON/CSTVAL/ TSTART,ZL0(10),ZL1(10),ZL2(10),ZLA(10),TTST
C
      COMMON/DATOUT/ IDATA,MLAST
C
      COMMON/DEBUG1/ IAFM(5)
C
      COMMON/DEBUG2/ IOUT,JOUT,KLUGE
C
      COMMON/DEBUG3/ ISWTCH
C
      COMMON/DEPLOY/ DDPLY,MDPLY
C
      COMMON/DMMNT1/ ZKBM(6),FMAK(10),FMBK(10),ARTETA(3),CMTORK(3),
     .               ITORK,IBENDM,ITENSE,ITNS1
C
      COMMON/ECNSTS/ THETA1,THETGO(40)
C
      COMMON/HAMOUT/ HAMILT,IHAMLT
C
      COMMON/IMAIN1/ IDATE,LSAVE,INOPT,IPLOT,NUMEQS,IPLTPE,IORB,ITAPE
C
      COMMON/IODPLY/ ISDPLY,IRAXIS,ISAXIS,NCROSS,NPRINT
C
      COMMON/IPOOL1/ IGRAV,IDAMP,IK,K1,ITIM,IAB,IAPS,IBB,IBPS,NK(10),
     .               LK(10),LLK(10)
C
      COMMON/ISHADE/ IPLANS,ISATSH,IWRTTF
C
      COMMON/JBTEST/ IBTEST
C
      COMMON/LIBDPR/ZK1D,ZK2D,PHIS,PHILD,DPHILD,BETLD,GAMLD,ZMDO,
     *              ZMDBO,CNV,DECAY
C
      COMMON/MOMENT/ ACNTRL,IVISCS,IATTDE,IMGMTS,IWHEEL,NPULSE
C
      COMMON/NODER/ NDER,NOPT
C
      COMMON/PLANSH/ OCCRIT,TAUPL
C
      COMMON /PLOTIT/ XMIN(11),XMAX(11),YMIN(11),YMAX(11),IFSCAL,
     1               KPLOTS(450)
C
      COMMON/PLTCOM/IPLMOD,IKMOD
C
      COMMON/PRESUR/ DTOO,POO
C
      COMMON/PWHEEL/XMOMIN(3),DVMOM(3),VMOM(3),VW(3)
C
      COMMON/RATTDE/ DTMXA,PXI,PXO,EIT,REFTIM,TMX1,TMX2,CMX,ISW
C
      COMMON/RMAIN1/ DELTAT,FACTOR,FREQ,TSTOP,DELMIT,
     .               UPBND(150),DNBND(150)
C
      COMMON/RMGNTC/ SMAGI(3),DPMAG(3),SFMAG,MAGFLD
C
      COMMON/RPOOL1/ RHOK(10),TIME,SA(3,3),FM1(3,3),ZLK(10),OMEG(3),
     .               ZLKP(10),ZLKDP(10),CMAT(3,3),GBAR(3,3),YBCM(3),
     .               ZBZK(3,10),FCM(3,3),DTO,PHID,PHI
C
      COMMON/RPOOL2/ PO,SD(3),DAN(3,10),DBN(3,10),CFMT(3,3),DIY1(3),
     .               SD1(3),DT1,P1,AERO,DTO1,YIZK(3),PO1
C
      COMMON/RPOOL3/ ZMS,YIZM(3,2)
C
      COMMON/RSUNCL/ WE,TVER,ECLPTC
C
      COMMON/RTDIST/ TDIS(10)
C
      COMMON/RUNOUT/ LCPU
C
      COMMON/RVISCS/ NSUBX(3),YARRAY(3),RADTBE,VISCTY,RADRNG,DENSTY,
     .               JARRAY(3),SSUBY,OMEGL,ISUBD
C
      COMMON/SATLSH/ TAUK(10),OCULTK(10),RADSH
C
      COMMON/SOLOUT/ FTAKIN(10,3),FTAKOT(10,3),FTBKIN(10,3),FTBKOT(10,3)
C
      COMMON/TJAN1/T
C
      COMMON/VECTRS/ XSAT(3),XSATDT(3),AD(3)
C
      COMMON/XIN1  / PSI1,THET1,PHI1,ETTAE,ZETTA,ITEST1
C
      COMMON/XIN2  / ALFAE,BETAE,GAMAE,OMBC(3),ITEST2
C
      COMMON/XIN3  / ALFAEK(10),BETAEK(10),GAMAEK(10),ETTAD,ZETTAD
C
      COMMON/XIN4  / UP(150),DN(150),CONSA,COMEG,AOOP,AOOPV,AOOP1,AOOPV1
     .              ,AIP,AIPV,AIP1,AIPV1,DOOP,DOOPV,DOOP1,DOOPV1,DIP,
     .               DIPV,DIP1,DIPV1,DUC,DUC1,DUCD,DUCD1
C
      COMMON/ZSPINR/ DTZMA,PZDT,CMZO,ISPIN3,JSPIN
C
C
C
      DATA T/0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON ANTENA
      DATA A,ADOT,B,BDOT,DIN,DINDOT,DOUT,DOUTDT/240*0.0D0/
      DATA NELMTS,NDAMPR,MODES/6,11*0/
      DATA ZBZ/30*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CCNVRT
      DATA BDYMI/10.00D0,3*0.0D0,15.00D0,3*0.0D0,20.00D0/
      DATA DPRMI/9*0.0D0/
      DATA EMODLS/10*2.D7/
      DATA RTUBE/10*2.935D-1/
      DATA HTUBE/10*2.D-3/
      DATA THERMC/10*8.85D-6/
      DATA TIPMS/ 10*0.D0/
      DATA C/10*4.D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CFINDX
      DATA AX2CHK,TCHECK / 0.437D-2,1.D-12 /
      DATA LCHECK /10 /
C
C                  DATA STATEMENT FOR LABELED COMMON CFNALP
      DATA SCO/14.6D0/
      DATA CDAMP/30*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CNBODY
      DATA J2,J3,J4,J22 /1082.3D-6,-2.3D-6,-1.8D-6,1.9D-6/
      DATA ZJ20,ZMU,WWO /1082.3D-6,3.986032D+05,55.0D0/
      DATA FLAT,AEARTH/298.3D0,6378.165D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CODPLY
      DATA STANG,ANGTOL/45.0D0,1.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CONSTS
      DATA PI/3.141592653589793D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CRATIO
      DATA RATIO/10.D-10/
C
C                  DATA STATEMENT FOR LABELED COMMON CSOLAR
      DATA SAO,SKA,SKB,SKOA,SKOB,STMK,SKAA,SKBB/278*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON CSTVAL
      DATA TSTART/0.0D0/
      DATA ZL0/10*1.D0/
      DATA ZL1/10*0.D0/
      DATA ZLA/10*0.D0/
      DATA TTST/0.D0/
C
C                  DATA STATEMENT FOR LABELED COMMON DATOUT
      DATA IDATA,MLAST/0,0/
C
C                  DATA STATEMENT FOR LABELED COMMON DEBUG1
      DATA IAFM/5*0/
C
C                  DATA STATEMENT FOR LABELED COMMON DEBUG2
      DATA IOUT,JOUT,KLUGE/1,0,0/
C
C
C                  DATA STATEMENT FOR LABELED COMMON DEBUG3
      DATA ISWTCH/8/
C
C                  DATA STATEMENT FOR LABELED COMMON DEPLOY
      DATA DDPLY,MDPLY/0,0/
C
C                  DATA STATEMENT FOR LABELLED COMMON DMMNT1
      DATA ITORK,IBENDM,ITENSE,ITNS1,CMTORK/4*0,3*0.0D0/
      DATA ZKBM/3.5D0,-22.0D0,61.7D0,3.5D0,-22.0D0,61.7D0/
C
C                  DATA STATEMENT FOR LABELED COMMON ECNSTS
      DATA THETA1/0.9856473354D0/
C     THETGO IS THE RT. ASCENSION OF GREENWICH MERIDIAN AT JAN 1ST.
C     AT 00:00 OF THE YEAR IN QUESTION
C     THE FOLLOWING IS THE THETGO TABLE FOR YEARS 1968 TO 2000 INCL.
      DATA THETGO/99.7212D0,100.4681D0,100.2294D0,99.9907D0,99.7520D0
     1           ,100.4989D0,100.2602D0,100.0215D0,99.7828D0,100.5297D0
     2           ,100.2910D0,100.0523D0,99.8135D0,100.5605D0,100.3218D0
     3           ,100.0830D0,99.8443D0,100.5913D0,100.3525D0,100.1138D0
     4           ,99.8751D0,100.6220D0,100.3833D0,100.1446D0,99.9059D0
     5           ,100.6528D0,100.4141D0,100.1754D0,99.9367D0,100.6836D0
     6           ,100.4449D0,100.2062D0,99.9675D0,7*100.2D0/
C
C                  DATA STATEMENT FOR LABELED COMMON HAMOUT
      DATA IHAMLT/0/
C
C                  DATA STATEMENT FOR LABELED COMMON IMAIN1
      DATA IDATE/760101/
      DATA LSAVE/1/
      DATA IPLOT,INOPT/0,1/
      DATA IPLTPE,IORB/12,0/
      DATA ITAPE/0/
C
C                  DATA STATEMENT FOR LABELED COMMON IODPLY
      DATA ISDPLY,IRAXIS,ISAXIS,NCROSS,NPRINT/0,3,2,5,2/
C
C                  DATA STATEMENT FOR LABELED COMMON IPOOL1
      DATA IGRAV/1/
      DATA IDAMP/0/
      DATA ITIM /1/
      DATA LK,LLK/20*1/
C
C                  DATA STATEMENT FOR LABELLED COMMON ISHADE
      DATA IPLANS,ISATSH,IWRTTF/3*0/
C
C                  DATA STATEMENT FOR LABELED COMMON JBTEST
      DATA IBTEST/0/
C
C                  DATA STATEMENT FOR LABELED COMMON LIBDPR
      DATA ZK1D/1.0D-3/
      DATA ZK2D/2.0D0/
      DATA PHIS/35.0D0/
      DATA PHILD,DPHILD,BETLD,GAMLD/4*0.0D0/
      DATA ZMDO/0.0D0/
      DATA ZMDBO/0.0D0/
      DATA CNV/0.0D0/
      DATA DECAY/70.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON MOMENT
      DATA ACNTRL,IVISCS,IATTDE,IMGMTS,IWHEEL/5*0/
      DATA NPULSE/-4/
C
C                  DATA STATEMENT FOR LABELED COMMON NODER
      DATA NDER,NOPT/0,0/
C
C                  DATA STATEMENT FOR LABELLED COMMON PLANSH
      DATA OCCRIT,TAUPL/0.0D0,1.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON PLOTIT
      DATA XMIN,XMAX,YMIN,YMAX/44*0.0D0/,IFSCAL/0/
      DATA KPLOTS/450*0/
C
      DATA IPLMOD,IKMOD/2*0/
C                  DATA STATEMENT FOR LABELED COMMON PRESUR
      DATA POO,DTOO/0.0D0,0.0D0/
C
C
C                  DATA STATEMENT FOR LABELED COMMON PWHEEL
      DATA XMOMIN,DVMOM,VMOM,VW/3*1.0D0,3*0.0D0,3*0.0D0,3*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON RATTDE
      DATA DTMXA,PXI,PXO,CMX/10.D-1,0.4D0,0.5D0,0.0D0/
      DATA EIT,REFTIM/2*0.D0/
      DATA ISW/0/
C
C                  DATA STATEMENT FOR LABELED COMMON RMAIN1
      DATA DELTAT,FACTOR,FREQ,DELMIT/ 0.01D0,0.3D0,60.D0,1.D-8/
      DATA TSTOP/3600.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON RMGNTC
      DATA DPMAG/3*0.D0/
      DATA SFMAG/ 0.738D-7/
      DATA MAGFLD/7/
C
C                  DATA STATEMENT FOR LABELED COMMON RPOOL1
      DATA RHOK,TIME,SA,FM1,ZLK,OMEG,ZLKP,ZLKDP,CMAT,GBAR,YBCM,
     .     ZBZK,FCM,DTO,PHID,PHI/10*4.36D-04,115*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON RPOOL2
      DATA AERO,DTO1/2.D0,0.D0/
C
C                  DATA STATEMENT FOR LABELED COMMON RPOOL3
      DATA ZMS,YIZM/25.0D0,6*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON RSUNCL
      DATA ECLPTC / 23.444D0 /
      DATA TVER /6873720.0D0/
      DATA WE/ 1.1407D-5 /
C
C                  DATA STATEMENT FOR LABELED COMMON RTDIST
      DATA TDIS/10*2.D0/
C
C                  DATA STATEMENT FOR LABELED COMMON RUNOUT
      DATA LCPU/20/
C
C                  DATA STATEMENT FOR LABELED COMMON RVISCS
      DATA JARRAY/ 2.40483D0,5.52008D0,8.65373D0/
      DATA VISCTY,RADTBE,DENSTY/3.0D0,0.37D0,56.16D0/
      DATA RADRNG,YARRAY,OMEGL/10.0D0,3*0.0D0,0.0D0/
C
C                  DATA STATEMENT FOR LABELLED COMMON SATLSH
      DATA TAUK,OCULTK,RADSH/10*1.0D0,10*0.0D0,10.0D0/
C
C                  DATA STATEMENT FOR LABELLED COMMON SOLOUT
      DATA FTAKIN,FTAKOT,FTBKIN,FTBKOT/120*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON VECTRS
      DATA XSAT/8000.0D0,0.0D0,0.0D0/
      DATA XSATDT/0.0D0,7.05871093D0,0.0D0/
      DATA AD/3*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON XIN1
      DATA PSI1,THET1,PHI1,ETTAE,ZETTA/3*0.0D0,2*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON XIN2
      DATA ALFAE,BETAE,GAMAE,OMBC/6*0.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON XIN3
      DATA ALFAEK,BETAEK,GAMAEK/30*0.0D0/
      DATA ETTAD,ZETTAD/2*90.0D0/
C
C                  DATA STATEMENT FOR LABELED COMMON XIN4
      DATA   UP  /150*-1.D0/
      DATA   DN  /150*-1.D0/
      DATA CONSA / 1.D-5 /
      DATA COMEG / 1.D-7 /
      DATA AOOP  / 1.D-1 /
      DATA AOOPV / 5.D-5 /
      DATA AOOP1 / 1.D-3 /
      DATA AOOPV1/ 5.D-7 /
      DATA AIP   / 1.D-1 /
      DATA AIPV  / 5.D-5 /
      DATA AIP1  / 1.D-3 /
      DATA AIPV1 / 5.D-7 /
      DATA DOOP  / 1.D-1 /
      DATA DOOPV / 5.D-5 /
      DATA DOOP1 / 1.D-3 /
      DATA DOOPV1/ 5.D-7 /
      DATA DIP   / 1.D-1 /
      DATA DIPV  / 5.D-5 /
      DATA DIP1  / 1.D-3 /
      DATA DIPV1 / 5.D-7 /
      DATA DUC   / 1.D-2 /
      DATA DUC1  / 1.D-4 /
      DATA DUCD  / 1.D-3 /
      DATA DUCD1 / 1.D-5 /
C
C                  DATA STATEMENT FOR LABELED COMMON ZSPINR
      DATA DTZMA,PZDT,CMZO/ 3*0.D0 /
      DATA ISPIN3,JSPIN/ 2*0 /
C
      END
